Top 10k strings from 16-48 Magazine - Issue 26 (1986)(16-48 Tape Magazine)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
7 5 d$,ver3,hor3 5 c$,ver2,hor2 5 b$,ver1,hor1 5 "","","","","","" 4 (ver3,hor3)=79 4 (ver2,hor2)=79 4 (ver1,hor1)=79 3 ;"Big Code" 3 ;" " 3 )*(l>lc),16 3 (ver3,hor3)=71 3 (ver3,hor3) 3 (ver2,hor2)=71 3 (ver2,hor2) 3 (ver1,hor1)=71 3 (ver1,hor1) 2 z$="00070202 2 ver3,hor3;" 2 ver2,hor2;" 2 ver1,hor1;" 2 playround=1 2 playround=0 2 compround=1 2 compround=0 2 a$,ver,hor 2 DELETE BASIC 2 ASSEMBLY LISTING 2 ANOTHER GAME Y/N 2 ;"lib6code" 2 ;"delete/c" 2 ;"SCORE ";sc 2 *(l>lc);" " 2 (ver3,hor3)=120 2 (ver2,hor2)=120 2 (ver1,hor1)=120 2 (chars/256 2 (V+T,W+R)=5 2 (V+T,W+R)=4 2 (V+T,W+R)=2 2 "delete/c" 2 "Big Code" 2 TO BEGIN 2 A KEY 2 PUSH 1 |7_&|7_-|7_4|7_;|7_B|7_I|7_P|7_W|7_^|7_e|7al|7as|7dz|7d 1 z=prog+291 1 z$="12010204CONGRATULATIONS": 1 z$="12010204BAD LUCK TO YOU": 1 z$="10020203 1 z$="10000212SIDE 1 z$="08020204STOP TAPE NOW!": 1 z$="08000203 1 z$="05090104I WIN THE GAME": 1 z$="05080104YOU WIN THE GAME": 1 z$="04090104 1 z$="01020104 1 z$="00040202 1 z$="00030202 1 z$="00000204 1 z$="00000202 1 ver+w,hor;" 1 s 1 playmen=playmen+1 1 play=play-1 1 nines 1 m L 1 library 6 1 lib6code 1 l=l+(l<max)*(k$="6" 1 draw=draw+1 1 compmen=compmen+1 1 comp=comp-1 1 colo 1 circus ! 1 circus 1 c 1 big 1 a$,ver,hor: 1 V+T,W+R;" ": 1 To choose a square enter 1 This is a version of Noughts 1 TO PLAY, PRESS P 1 THANKS FOR PLAYING 1 TAPE START 1 STOP THE TAPE 1 SCREEN SETUP 1 SB0PB@PBPPB}PBvs 1 SAVE""delete/c""CODE 60000,42 1 RUN THE TAPE 1 RINGMASTER 1 PRESS A KEY 1 M/CODE LIBRARY 6 1 LET THE TAPE RUN 1 GENERAL NOTES 1 GAME OVER"; 1 Created with Ramsoft MakeTZX 1 COLO + 1 COLO 1 CC,CL;" ": 1 B=469.84631 1 A=171.01007 1 =z$aHz$aUz$lbz$mwz$| 1 ;"le circus " 1 ;"WELCOME TO" 1 ;"Verifying!" 1 ;"Verified O.K. Press any key. ": 1 ;"Use up and down keys to read thenotes. 1 ;"TROIS TIMES"; 1 ;"TRAVERSE ZE WIRE"; 1 ;"TO THROW LE KNIFE"; 1 ;"TO RELEASE HOLD"; 1 ;"TO MOVE MONSIEUR SEAL"; 1 ;"TO DROP BALL! PRESS 0"; 1 ;"TO ALLE' OOP"' 1 ;"Saved and verified O.K. Press any key.": 1 ;"Rewind tape & play to Verify" 1 ;"Rewind and play to verify.": 1 ;"Press any key to start" 1 ;"Place cartridge in m'drive 1" 1 ;"PUT ZE EAD IN LE"; 1 ;"PRESS KEY> C" 1 ;"PRESS KEY 0" 1 ;"PRESS ANY KEY" 1 ;"PRESS >0" 1 ;"PRESS 0"; 1 ;"PRESS 0" 1 ;"Operation Colossus" 1 ;"Nines " 1 ;"MESDAMES ET MESSSIEURS": 1 ;"M/C library 6 " 1 ;"Let it play": 1 ;"LEFT< PRESS KEY 5."; 1 ;"LECIRCUS": 1 ;"LE DOGGY WILL EAD ZE"; 1 ;"LE CRUNCH!": 1 ;"LE CIRCUS" 1 ;"JUMP THROUGH ZE OOP 3 TIMES"; 1 ;"Insert blank cassette" 1 ;"Go on, play the tape": 1 ;"CONGRATULATIONS! YOU HAVE EARNED THE TITLE OF 1 ;"CATCH ZE HUMAN CANNON"; 1 ;"CATCH LE CLUB 3 TIMES"; 1 ;"BALL, 3 TIMES"; 1 ;"( 3 GOALS S'IL VOUS PLAIT )" 1 ;" TO BEGIN " 1 ;" RIGHT> PRESS KEY 8." 1 ;" PUSSYCATS MOUTH"; 1 ;" ON TRAPEZE"; 1 ;" I'm still loading " 1 ;" Hang on a second, "; 1 ;" The routine resides at 60000and is 42 bytes long. You need ashort BASIC program to POKE theline numbers into memory." 1 ;" A KEY " 1 ;" This is the second of the16/48 utilities." 1 ;" PUSH " 1 ;" "; 1 ;" " 1 ;" ": 1 ;" 1 ;" 1 ; "BALL IF VOU PRESS KEY> F"; 1 60000 will thendelete the lines. An error isgiven if the lines do not exist." 1 16/48#24/2 1 ,chars-256 1 *(l>lc);a$: 1 *"m";i;"library 6": 1 *"m";i;"library 6" 1 (V+T,W+R)=3 1 '" MERGE the BASIC to an existingprogram or have it in memorybefore starting to write." 1 '" This routine will deletelines of BASIC!?!" 1 '" The routines can be relocatedat any address." 1 '" RANDOMIZE 1 '" It works by finding theaddress of the line numbers thencalling a ROM routine to reclaimthat area." 1 "numbers and places them into the" 1 "library 6" 1 "lib6code" 1 "g","128","192","96","48","24","12","6","2" 1 "f","1","3","6","12","24","48","96","64" 1 "e","128","128","128","128","128","128","128","0" 1 "d","1","1","1","1","1","1","1","0" 1 "c","0","0","0","254","254","0","0","0" 1 "b","0","0","60","60","60","60","0","0" 1 "a","255","255","195","195","195","195","255","255" 1 "RET","Return to BASIC." 1 "RECLM EQU 6629","" 1 "PRINTER BUFFER." 1 "Last line to delete ";a: 1 "LNADDR EQU 6510","" 1 "LINE2 EQU 23298","" 1 "LINE1 EQU 23296","" 1 "First line to delete ";a: 1 "END RST 08","Call to error handling routine." 1 "9993 INPUT ""Last line to delete "";a: 1 "9992 INPUT ""First line to delete "";a: 1 "23658",o: 1 "16/48#24/2" 1 ","Increase to point to length oflast line." 1 ","HL points to high byte of lastline length." 1 "(300+100* 1 "","","end" 1 " XOR A","Clear carry flag prior to asubtraction."," SBC HL,DE","Length of CODE between the firstand last line is formed in HL." 1 " PUSH HL","Store address, first."," PUSH DE","Store address, last." 1 " PUSH HL","Save address of first line."," 1 " POP HL","Address of last line."," INC HL 1 " POP DE","Last line address into DE."," POP HL","First line address into HL." 1 " POP DE","Address of first line." 1 " LD HL,(LINE1)","First line number."," CALL LNADDR","Returns with address of firstline in HL."," JR NZ,END","Zero flag is reset if the linedoes not exist so jump." 1 " LD E,(HL)","Low byte of line length into E." 1 " LD D,(HL)","High byte of line length into D." 1 " JR NC,END","Jump to the end if the firstline is greater than the last." 1 " INC HL","To point past the last line." 1 " INC HL","HL points to low byte of lengthof last line." 1 " INC HL 1 " CALL RECLM","A call is made to reclaim thearea, start address in DE andfirst address to leave alone in HL." 1 " ADD HL,DE","HL contains address of end oflast line plus one." 1 " This program INPUTs the line" 1 " DEFB 25","Error Q parameter error." 1 " TABLE","" 1 won five rounds of the game. " 1 to move on, 1 to copy." 1 in a draw, then the whole of 1 copies.)" 1 YOU WIN THIS ROUND 1 Welcome to Nines 1 WANT TO PLAY AGAIN? 1 VERTICAL LINES 1 The game is played until the 1 THE GAME IS A DRAW 1 THE BASIC 1 TAPE START 1 START THE TAPE 1 Press any key to start 1 Player-";playmen;" Computer-";compmen;" Draw-";draw;" 1 PRESS ~Q~ TO QUIT! 1 PLACE MEN ON BOARD 1 OPPONENT 3 ON LINE 1 OPPONENT 2 ON LINE 1 M'DRIVE START 1 Letter first, then Number! 1 LET'S TRY AGAIN! 1 LD HL,(LINE2)","Last line number."," CALL LNADDR","Find address of last line."," JR NZ,END","Jump if that line does not exist."," PUSH HL","Put address of last line ontostack." 1 If more than five rounds end 1 IT'S MY TURN 1 INVALID ENTRY! ": 1 INTRODUCTION 1 I WIN THIS ROUND 1 HORIZONTAL LINES 1 DIAGONAL LINES 1 COMPUTER 3 ON LINE 1 COMPUTER 2 ON LINE 1 COMPUTER 1 ON LINE 1 CHECK FOR TWO WAY WIN 1 & Crosses, with a difference " 1 ";Z$;;" OCCUPIED ": 1 player or the computer has 1 for tape,"; 1 for microdrive,"; 1 for menu." 1 You go first 1 X + WIDTH NOT FROM (0 TO 32) Y + DEPTH NOT FROM (0 TO 21) > 1 WHICH SQUARE 1 HOW TO USE IT 1 Computer= 1 game is declared a draw! " 1 Save to Tape 1 Save Microdrive 1 Load next item 1 Each player has nine men " 1 "; 1 1